(((-I)*Csc[theta]*
     (((r^2*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
           ((-1.*^-12*Sin[phi]*Sin[theta]*((((21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                 (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                    2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              (3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                 1.5*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                  (1 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta]) + 1.5*^-6*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[theta]*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]) + 
                 0.000018*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
                  Cos[phi]*Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 6*((3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^3)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + (((21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                    ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]*
                   (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                      2))/2 + 2.5*^-13*((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)^2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                   Cos[phi]^2*Sin[4*theta]) + 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r^2)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                    Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                    Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                  ((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (2*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) + 3.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  ((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                 3.*^-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)^2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r^2)*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta]))*(4 - 1.*^-12*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
                (-2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-(Sin[phi]^2*Sin[theta]^
                      2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                  ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 4*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                  9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                   Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                    4*theta])))) - 1.*^-6*r^2*
           (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
                4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           (-2.5*^-13*((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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]*((((21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                 (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                    2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (1.*^-6*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*
                (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                 ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^3) + ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                   (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (9*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^3 + (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                   ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
            (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
           ((-5.*^-13*r*Sin[phi]*Sin[theta]*((((21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                 (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                    2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (1.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                 ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                 (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]^2*Sin[theta]*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                 ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta]*(-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
            ((-1.*^-12*Sin[phi]*Sin[theta]*((((21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                  (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                     2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta])))*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                  1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                   (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                 (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)^2*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) + 1.5*^-6*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[theta]*Sin[2*theta]*(1 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]) + 
                  1.5*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]) + 0.000018*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)^2*Cos[phi]*Sin[theta]*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + 6*((3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^3)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + (((21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]*
                    (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                       2))/2 + 2.5*^-13*((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)^2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                    Cos[phi]^2*Sin[4*theta]) + 2.5*^-13*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r^2)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                   ((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (2*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) + 3.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                  3.*^-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-12*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)^2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-12*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r^2)*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]))*(4 - 1.*^-12*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                    (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                       2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                      Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*(1 + 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
                 (-2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-(Sin[phi]^2*Sin[theta]^
                       2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                   ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])) + 4*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                  (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                     2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta])))*((-1.*^-6*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + r^2*Sin[theta]^2*
            (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
               (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
                4)*Cos[phi]*Sin[2*theta])*
            (-2.5*^-13*((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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]*(
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                   9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                 (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                (-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                    1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                    1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*
                 (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                  ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                 Sin[2*theta]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                    2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^3) + ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (9*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                    ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
               (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]) - 
                     (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                       Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                         Sin[4*theta])))))/(-2 + 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
             (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
             (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]*
            ((-5.*^-13*r*Sin[phi]*Sin[theta]*((((21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                  (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                     2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta])))*((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                    1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                    1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                  ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                  (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]^2*Sin[theta]*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
               (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                  ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta]*(-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]) - 
                     (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                       Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                         Sin[4*theta])))))/(-2 + 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
              Sin[2*theta])*((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*((1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                  Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 
             (2.5*^-13*Sin[phi]^2*(((3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] + 
                   Sin[theta]*(1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                      (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])))/(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^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*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta])))))/r + 
             (2.5*^-7*((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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]*(
                -1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                    Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*(-1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^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*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                     (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 + ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                    (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                    (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 + (1.*^-6*((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                   6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r + 
                   r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) + 
                     ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                       (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*
                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*
                  (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2 + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^6 - (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                       (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (13*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^3 + (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                       ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*Sin[phi]^2*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)*
                  Sin[2*theta])/(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta]*(3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1/4*(((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                        2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^
                        2) + 12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 
                     2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(-3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/4 + 2.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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 + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (4*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-3*((3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^3*Cos[2*theta]^
                          2*Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[
                          4*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-4*Cos[phi]*
                          Cos[theta]^3*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*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                    2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(3*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[phi]*
                    Cos[2*theta]*Sin[phi]*Sin[2*theta])/(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cot[theta]*Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/(4*(1.*^-12*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*(1 + 
                         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                        (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                         (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                         2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                        (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta])))) + (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*Sin[phi]*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[2*theta] + 
                     ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Sin[theta]^2)/2)*Sin[2*theta])/(2 - 5.*^-13*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 - 
                    1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                        2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                         Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                         Sin[phi]^2) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]))) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                    2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                    (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                          2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                         Sin[2*theta] + 9*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                          2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                          3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                          3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                       2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                      (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                         2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                          Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                          Sin[phi]^2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                          Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(1.*^-6*(0.000027*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                        (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-8*Cos[phi]*Sin[theta]^
                          4 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*(1 + 3*Cos[2*phi])*
                          Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^
                          3)))/4 + 9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                         2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*(1 + 
                         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                        (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                         (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                         2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                        (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                    2 + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*Sin[phi]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                        Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^4)/
                        2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                          3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                       9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                         2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*(1 + 
                         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                        (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                         (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                         2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                        (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                    2)))/r) - 1.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
             (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
             (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]*
            ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*((2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                    Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*(-1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                  2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-336/(E^(r^2/4)*
                    r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                  (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                 (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2 + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
               (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*Sin[theta]^2*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-2 + 0.000012*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta] - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-3.75*^-7*
                   ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]) - 
                     (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                       Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                         Sin[4*theta])))))/(-2 + 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                 (0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[theta]^2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                    4 - 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]^3 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                       2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                         3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                         3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                     Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^4)/
                     2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                      2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))*(1.*^-6*
                   (0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]*Sin[theta]^4)/2 + 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                      2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2)) - 
           1.*^-6*r^2*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
             (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
            ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                  1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                   (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                 (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                 ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/
              (r*(1 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.16*^-10*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]^2*Sin[phi]*
                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                    Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                   (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*(-((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi]) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(2*Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(8*Cot[theta]*Sin[phi] + 1.*^-12*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                        Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                      (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[
                         4*theta]))))/4 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-4*Cot[theta]*Sin[phi] - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                    Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                  1.25*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                    3*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2*Csc[theta]^3 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                   Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                   Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                    Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                   (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                    Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                      Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                 ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                  2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])) + 
                2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) + (5.*^-7*Sin[phi]*Sin[theta]*(
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                   9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                 (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                (1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - 
             (5.*^-7*Sin[phi]*Sin[theta]*((1 - 2.5*^-13*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                    (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) - 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                   (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(2*Cos[phi]^2*
                       Cos[2*theta] + Sin[phi]^2) + (r*((-105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                       ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                   (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                       (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                       (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                    7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 - Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[2*theta]) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (-1.*^-6*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                    5.*^-7*r*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                    7.5*^-7*r*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2 + 7.5*^-7*
                     (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta] + 3*((-15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + 6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*
                   (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*(2*Cos[phi]^2*
                       Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                     Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + (105*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*Sin[
                          2*theta] + (Cos[phi]^2*Sin[4*theta])/2))) + 
                  6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[theta]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                    r*Cos[phi]*Sin[theta]^2*(((-105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                        ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4 + 7.5*^-7*
                       (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                       Sin[2*theta] + 3*((-15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta])) + 2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2) + 
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]*
                       Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*Sin[
                          2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 
                1.25*^-13*(7.2*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                    (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) + 4*r*Sin[theta]*
                   ((1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                     Sin[4*theta] + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(2*Sin[phi]^2*
                       Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 
                  0.000012*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[theta]*(2*r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                      3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Sin[phi]^2*Sin[
                        2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]*Cos[2*theta] + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                         Sin[4*theta]))))*(-3.75*^-7*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]) - 
                     (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                       Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                      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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[phi]*Sin[theta]^3 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Sin[2*phi]*(-Sin[2*theta] + 
                    Sin[4*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                   ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                   Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))*(0.000054*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[theta]*(Sin[phi] - 
                    3*Sin[3*phi])*Sin[theta]^3 - 2*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[phi]*
                   Sin[theta]^4 - 72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                      4*Cos[theta]*Sin[phi]^2)*Sin[theta]) - 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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 - 
                    2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Sin[2*phi]*Sin[theta]^4 + 1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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])) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*(-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                      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*(48/(E^(r^2/4)*r^4) - 
              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]^2*
              (((3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (4*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] + 
                  Sin[theta]*(1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))/
             r + (2.5*^-7*((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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]*(-1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + 
               ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + 
                  6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                  (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                    2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((6*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) + 
                    ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*Sin[phi]^2*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/
                (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta]*(3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1/4*(((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2) + 
                    12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(-3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/4 + 2.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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 + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (4*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-3*((3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^3*Cos[2*theta]^
                          2*Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[
                          4*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(-4*Cos[phi]*
                          Cos[theta]^3*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*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[phi]^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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cot[theta]*Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/(4*(1.*^-12*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta])))) + (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Sin[phi]*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[2*theta] + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Sin[theta]^2)/2)*Sin[2*theta])/(2 - 5.*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Sin[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                   (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                         2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                          2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                          3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                          3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                     Sin[theta]^2 + 1.0799999999999999*^-16*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                        2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                         Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1.*^-6*(0.000027*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                       (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                      ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-8*Cos[phi]*Sin[theta]^
                          4 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*(1 + 3*Cos[2*phi])*
                          Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^
                          3)))/4 + 9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                        2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*Sin[phi]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                       Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^4)/
                       2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                          3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                      9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                        2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2)))/r) + 1.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
            (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
           ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[2*theta] + (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]) + 
              9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*
                   r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                 2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[theta]*
                  Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                     r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                   Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                 (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                   ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2 + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(2 - 
                5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                Cos[phi]*Sin[theta]^2*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2)*(-2 + 0.000012*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] - 
                 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[theta]^2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                   4 - 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]^3 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Sin[theta]^2)/2))/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*
                     Sin[theta]^2 + (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]*
                      (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                        2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                        3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                        3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                    Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                    Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-8*Cos[phi]*
                       Sin[theta]^4 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*(1 + 3*Cos[2*phi])*
                         Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^
                          3)))/4 + 9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*
                    (1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (3.*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*
                (1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]*Sin[theta]^4)/2 + 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*
                    (1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2)) + 
          r^2*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
           ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/
             (r*(1 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(2*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]^2*Sin[phi]*
                (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                   Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                  (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(-((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi]) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(2*Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
               ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(8*Cot[theta]*Sin[phi] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                     (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
                4 + 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-4*Cot[theta]*Sin[phi] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 4*Cos[2*theta])*
                  Sin[2*phi] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*Sin[phi]*
                  (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[2*theta]*
                    Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                   Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/4)*Sin[phi]^2*Sin[2*theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                 2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[theta]*
                  Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])) + 2*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (-Sin[theta] + Sin[3*theta])))*((-1.*^-6*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) + (5.*^-7*Sin[phi]*Sin[theta]*
              ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                  9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]*
              ((1 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]^2*Sin[theta]*
                  ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                      Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) - 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                  (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(2*Cos[phi]^2*
                      Cos[2*theta] + Sin[phi]^2) + (r*((-105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                      (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                      (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                   7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 - Cos[2*phi] + 
                     Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                      2*(phi + theta)])*Sin[2*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (-1.*^-6*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta] - 5.*^-7*r*((-105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                   7.5*^-7*r*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2 + 7.5*^-7*
                    (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta] + 3*((-15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + 6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                   r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                     3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                        Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))) + 
                 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                  (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^
                      2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*
                    (((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                       (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*
                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4 + 7.5*^-7*
                      (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta] + 3*((-15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + 2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*
                       Sin[4*theta])/2) + ((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                        Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 
               1.25*^-13*(7.2*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                   (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) + 4*r*Sin[theta]*
                  ((1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                   3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                   3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                    Sin[4*theta] + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2*Sin[phi]^2*
                      Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 
                 0.000012*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                  (2*r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                     3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Sin[phi]^2*
                      Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]*Cos[2*theta] + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                        Sin[4*theta]))))*(-3.75*^-7*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(-4*Cos[2*theta]*Sin[phi] + 8.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^3 + 
                 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Sin[2*phi]*
                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(0.000054*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[theta]*(Sin[phi] - 
                   3*Sin[3*phi])*Sin[theta]^3 - 2*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[phi]*
                  Sin[theta]^4 - 72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                     4*Cos[theta]*Sin[phi]^2)*Sin[theta]) - 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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 - 
                   2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Sin[2*phi]*Sin[theta]^4 + 1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
             (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
          ((-1.*^-12*(3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                   Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
             2 - (1.*^-6*(-2.*^-12*(-2*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]^2*
                 Sin[theta]^2 - 7.5*^-7*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                 ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                      2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                  1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                   (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                 (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))) + (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-6*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + (((21*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                   4) + Cos[phi]*(-4.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)^2*Cos[phi]*Cos[2*theta]^2 - 4.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                   Cos[2*theta]^2 - ((21*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                    ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[2*theta] + 
                  2.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[4*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Sin[phi]^2*(2*((21*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3)*Sin[4*theta])) - 5.*^-7*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*
                 (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) - 
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(-12*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                    2 + (((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                     (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(0.000012*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  12*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                    2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-7*
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)^2*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - 
                  ((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (2*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-2*Sin[phi]^2*
                     Sin[theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])))))/(-8 + 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 + 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 + 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 - 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                   Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
             2 - (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(
                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*(
                4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                 Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                  Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
             ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[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*(-96/(E^(r^2/4)*r^4) + 
           (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
           (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
             (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
          ((-5.*^-13*r*(3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[
                phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-12*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                  2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[theta]*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (1.*^-6*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                 Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (2.5*^-7*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((21*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                      (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                    (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*Sin[
                2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (((-6*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Sin[
                2*theta]*(-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                5.*^-7*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
             (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                  (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    48*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*
                     (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^
                2*Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                -3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta]) - 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                    Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-4*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                   ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])))))/(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
           (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
              r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
          ((-5.*^-13*Sin[phi]*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*Cos[phi]*(
                -6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-12*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                  2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Sin[
                2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*(1 + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*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*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
               Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*(
                -1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 + (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (2.5*^-7*((21*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                      (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                    (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*Csc[
                theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
               Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/2 - 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[theta]*
                 (1 + 0.000012*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Cos[phi]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]^2 + 
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/4 + 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((3*((3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^3) + ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                  (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    48*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*
                     (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]^2*Cos[2*theta]*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[phi]*Cos[
                2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                -3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta]) - 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                    Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-4*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                   ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])))))/(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
                4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           ((-1.*^-12*(3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                  1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                   (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                 (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2 - (1.*^-6*(-2.*^-12*(-2*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]^2*
                  Sin[theta]^2 - 7.5*^-7*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-(Sin[phi]^2*Sin[theta]^
                      2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                  ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 4*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + Cos[phi]*(-4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[4*theta])) - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]))) + (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*
                  (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + 3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-6*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + Cos[phi]*(-4.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)^2*Cos[phi]*Cos[2*theta]^2 - 4.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                     (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                    Cos[2*theta]^2 - ((21*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[2*theta] + 
                   2.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[4*theta]) + 
                   1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                    (2*((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (2*(8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*
                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3)*Sin[4*theta])) - 5.*^-7*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*
                  (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-12*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                     2 + (((21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (21*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(0.000012*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                    Sin[phi]^2*Sin[theta]^3 + 12*((3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-7*
                    ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)^2*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3) - ((21*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-2*Sin[phi]^2*
                      Sin[theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                     (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])))))/(-8 + 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2 - (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                 (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                    2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(-96/(E^(r^2/4)*r^4) + 
            (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[phi]*
           Sin[theta]*((-5.*^-13*r*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (2.5*^-7*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                 (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                    16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                 (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (3*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                  Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                  Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                 ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (21*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (9*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (2*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
             Sin[2*theta])*((-5.*^-13*Sin[phi]*(3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
                Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (1.*^-6*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (2.5*^-7*((21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                 (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                    16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (9*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 - (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*
                Csc[theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.5*^-7*((21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
                Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                   Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Cos[phi]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                   2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^3) + ((-21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                   (21*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (9*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^3 + (2*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                   ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]^2*Cos[2*theta]*(3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)^2*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 + (6*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                 (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
             Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[2*theta]*
                 Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (3*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 + 4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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]*((1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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]*((-1.*^-6*(3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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]*((1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))/
             r + (2.5*^-7*Sin[phi]*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) - (5.*^-7*Sin[phi]*
              ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))))*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2 + (r*((-105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                 Csc[theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (Csc[theta]*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[phi]*
                 (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                  (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]^2*Cos[2*theta]*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]) - (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/4 - 2.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                       Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                         Sin[4*theta])))))/(-2 + 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]^2*Cos[2*theta]^2)/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (5.*^-7*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Csc[theta]^2*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (5.*^-13*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                     (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                      3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                    9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                   (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                     (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                      3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                    9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta]*
                 (Csc[theta]^2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                 (-0.000054*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta]))/8 - 18*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                     Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*(-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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)]) + ((336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
           (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
             r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[phi]*
           Sin[theta]*((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] - 4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  (3*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r))/4)*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))))*((1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))) + 
            5.*^-7*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta]))) + 2.5*^-13*Sin[phi]^2*
             ((2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[2*theta] + (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2 + (r*((-105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                    ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                  Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                  Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                 (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                   ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-336/(E^(r^2/4)*
                   r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                  Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.5*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                  Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (6.*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(9.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + 6.25*^-8*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (Cos[phi]*Cos[2*theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]^2*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                Sin[theta]*(Csc[theta]^2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-0.000054*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))/8 - 18*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-1.25*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           (-1/2*(1.*^-6*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                    Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])) + 
                 (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta]))) - 1.*^-6*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))*(1.*^-6*((-21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r + 
                   r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) + 
                     ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                       (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*
                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                    Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*Sin[2*theta]) + (-2 + 1.*^-6*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                    Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]^2*Sin[phi]^2 - (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])/4 - 7.5*^-7*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[2*theta]^
                     2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                    Sin[2*theta]^2) + 1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                    Cot[theta] + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2) - 6.*^-6*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])) - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])) + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                   (r*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                    Sin[4*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2) + 
            (5.*^-7*(1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*(3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
              (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*(0.000072*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]^2 + 
                 Cot[theta])*Sin[phi]^2 - ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Csc[theta]^2*
                 (4 - 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(12*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) - 
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cot[theta]*
                  Sin[phi]^2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*Cos[phi]*(14*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
               8.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[phi]*(-(Cos[phi]*(Cos[theta] + Cos[3*theta])*
                   Csc[theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*
              ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                  9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*
              ((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                   Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                  (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(-8*Cot[theta]*Sin[phi] - 
                 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                   Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                   3*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*
                       r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(8.*^-6*Sin[phi]^3*
                       Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[
                        4*theta]))/4)) + 2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + r*(3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*((Cos[theta]^2 + 
                     Cos[2*theta])*Sin[2*phi] - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cot[theta]*Sin[phi] + 
                    5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*Cos[2*theta]*
                       Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                        Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))) + (2.5*^-7*(-2.*^-6*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                      theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 
                 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]^2*Sin[2*theta]^2 - 
                 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]^2*Sin[2*theta]^2)*(-6.*^-6*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(-0.000216*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - 72*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(2*Sin[phi]^2*
                       Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/4 + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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) - 2*(Sin[phi]^2*Sin[2*theta] + 
                       2*Cos[phi]^2*Sin[4*theta]))) + 
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                       Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
             (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
             ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
          ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(
                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*Csc[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + (3*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(3.*^-6*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 + 4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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]*
             ((1.25*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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]*((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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]*((1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))/r + 
           (2.5*^-7*Sin[phi]*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])))) - (5.*^-7*Sin[phi]*
             ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))))*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2 + (r*((-105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                    ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                Csc[theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (Csc[theta]*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                   Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Cos[phi]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                   2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  4 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                 (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                   ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]^2*Cos[2*theta]*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[2*theta] + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]) - (((21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 - 2.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                      Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]^2*Cos[2*theta]^2)/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (5.*^-7*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Csc[theta]^2*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (5.*^-13*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                     3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                   9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (5.*^-7*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                     3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                   9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (6.*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta]*
                (Csc[theta]^2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta]*(-0.000054*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                     Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                 18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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)]) + ((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
           (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
           (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
             (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
          ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*
                  r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] - 4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - (3*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-2 + 5.*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                    r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))*
            ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))) + 
           5.*^-7*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 
                1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
            ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
              Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
             1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
               (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
                2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
             (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))) + 2.5*^-13*Sin[phi]^2*
            ((2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r))/2)*Sin[theta]^2)*(1.*^-12*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*(1 + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 
                1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                (r*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                   (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*Sin[
                2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2 + 1.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-2 + 1.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                 Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3) - (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                  ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                    (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^
                2*Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                -336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-336/(E^(r^2/4)*
                  r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                -3.75*^-7*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-18*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta]) - 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                    Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-4*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                   ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])))))/(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                 (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                   (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                 Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (1.5*^-6*((3*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[
                phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                 Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                 (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                   (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                 Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 + (6.*^-6*((3*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[
                phi]*Sin[2*theta]*(9.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + 6.25*^-8*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (Cos[phi]*Cos[2*theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]^2*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*Sin[theta]^
                2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
             (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^
                2*Sin[theta]*(Csc[theta]^2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                -0.000054*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*
                 (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]))/8 - 18*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-1.25*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
             (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
          (-1/2*(1.*^-6*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))) - 1.*^-6*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))*(1.*^-6*((-21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + 6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                  (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r + r*(3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) + (-2 + 1.*^-6*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]^2*Sin[phi]^2 - (((21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])/4 - 7.5*^-7*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[2*theta]^
                    2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[2*theta]^2) + 1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]) + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/2) - 6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  (r*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2) + 
           (5.*^-7*(1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             (3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*(
                -6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-12*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                  2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
             (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             (0.000072*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
              ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Csc[theta]^2*
                (4 - 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*(12*Cos[theta]^2*
                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) - 
              (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-(Cos[phi]*
                  (-1 + Cot[theta]^2)) + 0.000021*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cot[theta]*Sin[phi]^2 + 
                9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (14*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
                   Sin[4*theta])) + 8.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(
                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                  Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                    Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(
                48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))))/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*
             ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                 9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*(
                4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                 Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                  Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                   Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                    4*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*
             ((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]^
                2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 
              0.000036*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                 (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                   Sin[4*theta])) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-8*Cot[theta]*Sin[phi] - 
                1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                  Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                  3*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(2*Cos[2*theta]*
                   Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(8.*^-6*Sin[phi]^3*
                      Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[
                       4*theta]))/4)) + 2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*((Cos[theta]^2 + 
                    Cos[2*theta])*Sin[2*phi] - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta])) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cot[theta]*Sin[phi] + 
                   5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*Cos[2*theta]*
                      Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                       Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
              5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2 + 
              1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                  Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                    Sin[phi]^2))/2))) + 
           (2.5*^-7*(-2.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2) - 
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
               (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]^2*
                 Sin[2*theta]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[2*theta]^
                  2)*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*
                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*(-0.000216*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - 72*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(2*Sin[phi]^2*
                      Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/4 + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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) - 2*(Sin[phi]^2*Sin[2*theta] + 
                      2*Cos[phi]^2*Sin[4*theta]))) + (3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
              Sin[2*theta])*((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*((1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                  Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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.*^-13*Sin[phi]^2*Sin[theta]*(
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                   9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                 (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                -((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 
             (2.5*^-13*Sin[phi]^2*(((3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] + 
                   Sin[theta]*(1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                      (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])))/(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^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*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                  Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*
                 (3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                  ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                    (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2 - 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                 Sin[2*theta]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((-15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                    (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
               (1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
               (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                  (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                  (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]) - 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                     (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(3*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[phi]*
                    Cos[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                    2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(3*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[phi]*
                    Cos[2*theta]*Sin[phi]*Sin[2*theta])/(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cot[theta]*Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/(4*(1.*^-12*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*(1 + 
                         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                        (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                         (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                         2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                        (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta])))) + (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) - (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*Sin[phi]*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[2*theta] + 
                     ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Sin[theta]^2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta]))) - 
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                    2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                    (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                          2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                         Sin[2*theta] + 9*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                          2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                          3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                          3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                       2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                      (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                         2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                          Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                          Sin[phi]^2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                          Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(1.*^-6*(0.000027*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                        (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-8*Cos[phi]*Sin[theta]^
                          4 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*(1 + 3*Cos[2*phi])*
                          Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^
                          3)))/4 + 9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                         2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*(1 + 
                         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                        (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                         (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                         2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                        (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                    2 + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*Sin[phi]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                        Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^4)/
                        2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                          3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                       9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                         2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*(1 + 
                         3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                        (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                         (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                         2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                        (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                    2)))/r) - 1.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
             (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
             (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]*
            ((-1.*^-6*Sin[phi]*Sin[theta]*((((21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                  (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                     2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta])))*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))))/(4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*((2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))) - 
             2.5*^-13*r*Sin[phi]*Sin[theta]*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta])))))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                  2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                     Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Sin[
                        2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                     (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                     Sin[phi]^2*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                      1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                        2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 + (1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                   (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                    (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                         (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                     (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                      1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                        2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 - (1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                     Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Sin[
                        2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) + 
                    ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                     Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Sin[
                        2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*(2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*(3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]) + ((-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Sin[
                         2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (((30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^6 - (30*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (15*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (5*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]*
                   (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                    (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                    5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)*
                   Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                    Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                        Sin[4*theta]))) - (1.*^-6*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                   (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      2)*Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                    Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                        Sin[4*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) + 
                    ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      2)*Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                    Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      2)*Sin[2*theta]*(-3.75*^-7*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                          Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3))/4) + ((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]) - 
                       ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                         (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                         (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                         (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/
                       4 - 12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                        Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                      1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                       (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                  (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                     Sin[2*theta]^2 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                        2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                         Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                 (0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[theta]^2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                    4 - 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]^3 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                       2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                         3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                         3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                     Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^4)/
                     2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                      2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))*(1.*^-6*
                   (0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]*Sin[theta]^4)/2 + 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                      2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2)) - 
           1.*^-6*r^2*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
             (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
            ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))*((((21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                  (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                     2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]))))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))*(4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.16*^-10*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]^2*Sin[phi]*
                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                    Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                   (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*(-((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi]) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(2*Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(8*Cot[theta]*Sin[phi] + 1.*^-12*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                        Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                      (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[
                         4*theta]))))/4 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-4*Cot[theta]*Sin[phi] - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                    Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                  1.25*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                    3*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2*Csc[theta]^3 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                   Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                   Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                    Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                   (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                    Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                      Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                   (1 - 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]) + (((-105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]*
                    (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                       2))/2 - 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                  1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                   (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^6 - (30*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (15*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (5*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]*
                   (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[theta]*(2.5*^-7*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 
                    3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                      Cos[phi]^2*Sin[4*theta])) + 3*((-15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^3)*(2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Sin[theta]*
                      Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                     4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[theta]*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
                 (4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                    (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                       2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                   (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
                 (-2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]^2*
                   Sin[theta]^2 - 7.5*^-7*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 - 
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                     Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                      2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]))/4 - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                     Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                      2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]))/4 + 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                   (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                        2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                  4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) - 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                 ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                 ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                  2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])) + 
                2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) - (2.5*^-13*Sin[phi]*Sin[theta]*(
                4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta])*(r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2) - 0.000018*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Cos[theta]*
                 Sin[theta] + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                  1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Sin[2*theta]))*((-1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[theta]*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[phi]*Sin[theta]^3 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Sin[2*phi]*(-Sin[2*theta] + 
                    Sin[4*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                   ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                   Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))*(0.000054*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[theta]*(Sin[phi] - 
                    3*Sin[3*phi])*Sin[theta]^3 - 2*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[phi]*
                   Sin[theta]^4 - 72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                      4*Cos[theta]*Sin[phi]^2)*Sin[theta]) + 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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])) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*(-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                      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*(48/(E^(r^2/4)*r^4) - 
              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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.*^-13*Sin[phi]^2*Sin[theta]*
              ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                  9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]^2*
              (((3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (4*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] + 
                  Sin[theta]*(1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (1.*^-6*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*
                (3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                 ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                   (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                   Cos[3*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  2 - 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*
                  (1 + 0.000012*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                   2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((-15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                   (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                  2))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
              (1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                 (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                 (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                    (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[phi]^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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cot[theta]*Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/(4*(1.*^-12*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta])))) + (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Sin[phi]*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[2*theta] + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Sin[theta]^2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                        Sin[4*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Sin[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                   (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                         2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                          2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                          3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                          3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                     Sin[theta]^2 + 1.0799999999999999*^-16*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                        2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                         Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1.*^-6*(0.000027*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                       (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                      ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-8*Cos[phi]*Sin[theta]^
                          4 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*(1 + 3*Cos[2*phi])*
                          Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^
                          3)))/4 + 9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                        2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*Sin[phi]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                       Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^4)/
                       2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                          3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                      9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                        2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2)))/r) + 1.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
            (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
           ((-1.*^-6*Sin[phi]*Sin[theta]*((((21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                 (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                    2))/2 - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[2*theta] + (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))) - 
            2.5*^-13*r*Sin[phi]*Sin[theta]*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))*
             ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                 2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[theta]*
                  Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                     r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                   Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[theta]*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 + (1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 - (1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((-15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[theta]*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]^2 + (3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Sin[
                        2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                   (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[theta]*
                  (-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                    Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                  Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))) - (1.*^-6*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                   ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                  (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]) - 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                        2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/
                      4 - 12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                      (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                 (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[theta]^2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                   4 - 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]^3 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Sin[theta]^2)/2))/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*
                     Sin[theta]^2 + (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]*
                      (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                        2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                        3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                        3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                    Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                    Cos[theta]*Sin[theta]^3 + ((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-8*Cos[phi]*
                       Sin[theta]^4 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*(1 + 3*Cos[2*phi])*
                         Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^
                          3)))/4 + 9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*
                    (1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (3.*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*
                (1.*^-6*(0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]*Sin[theta]^4)/2 + 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*
                    (1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2)) + 
          r^2*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
           ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              ((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                  9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
             (r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
              (4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(2*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]^2*Sin[phi]*
                (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                   Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                  (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(-((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi]) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(2*Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
               ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(8*Cot[theta]*Sin[phi] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                     (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
                4 + 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-4*Cot[theta]*Sin[phi] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 4*Cos[2*theta])*
                  Sin[2*phi] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*Sin[phi]*
                  (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[2*theta]*
                    Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[theta]*Sin[2*theta]*(1 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]) + 
                 (((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]*
                   (2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta] - 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]^2*Sin[2*theta]^
                      2))/2 - 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  ((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                   (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                 1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                  (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^6 - (30*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                   (15*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (5*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]*
                  (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*(2.5*^-7*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                     Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(-240/(E^(r^2/4)*
                       r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                 3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*(2*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta])) + 6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Sin[theta]*
                     Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                    4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[theta]*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta])))*(4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta]) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta])) + 3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta])))*(-2*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - ((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 - 
                 (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]))/4 - 
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 
                    2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]))/4 + 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                  (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) - 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                   Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/4)*Sin[phi]^2*Sin[2*theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                 2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[theta]*
                  Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])) + 2*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (-Sin[theta] + Sin[3*theta])))*((-1.*^-6*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) - (2.5*^-13*Sin[phi]*Sin[theta]*
              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((-1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(-4*Cos[2*theta]*Sin[phi] + 8.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^3 + 
                 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Sin[2*phi]*
                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(0.000054*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[theta]*(Sin[phi] - 
                   3*Sin[3*phi])*Sin[theta]^3 - 2*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[phi]*
                  Sin[theta]^4 - 72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                     4*Cos[theta]*Sin[phi]^2)*Sin[theta]) + 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
              Sin[2*theta])*((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                  1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Sin[2*theta]))*((1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 
             1.5*^-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
              Sin[theta]*((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] + 
                   Sin[theta]*(1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                      (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])))/(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
              Sin[theta]*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))))^2/(4*r^2) - (2.5*^-13*Sin[phi]^2*(
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                  Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*Sin[
                theta]*(-1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                    Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*(-1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                -((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                    Sin[theta]^2 - 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                    ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + r*(3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                     (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                     Sin[phi]^2*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                      1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                        2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 + ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                         r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                         (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                     (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 6.*^-6*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                      1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                        2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 + (1.*^-6*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                       Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (1.*^-6*(9*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) - (3*(-1680/(E^(r^2/4)*r^5) + (105*
                         (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                    r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^3) + (-10080/(E^(r^2/4)*r^6) + (630*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                        (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (87*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^4 - (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                        ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (Cos[phi]*(2 - 2.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                     (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + ((9*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) - (3*(-1680/(E^(r^2/4)*r^5) + (105*
                         (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
                    r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^3) + (-10080/(E^(r^2/4)*r^6) + (630*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                        (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (87*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^4 - (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                        ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (3.*^-6*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Sin[phi]^2*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)*
                   Sin[2*theta])/(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                    Sin[theta]^2 + 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                   (3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                          Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3))/4) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (-1/4*((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                         Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                          2*(phi + theta)])*Sin[theta]^2) + 12*
                       (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                        Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(-3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]) + 
                       ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]))/4 + 2.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                         (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                         (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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 + (-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (4*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                         Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (-3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^3*Cos[2*theta]^
                          2*Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[
                          4*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                          (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                          (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(-4*Cos[phi]*Cos[theta]^3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                        2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                         Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                     3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                    (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                     3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                     r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
                   (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                    2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))) + Sin[phi]*
                 ((-1.9999999999999998*^-18*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                     3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]^3*Sin[phi]*
                    (0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                      (1 + 3*Cos[2*phi])*Cos[theta] + 18*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(Cos[phi]*(-4*Cos[theta]*
                          Cot[theta] + Csc[theta]) + 1.*^-6*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                         Sin[phi]^2)) + ((-96/(E^(r^2/4)*r^4) + 
                         (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                        2*Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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 + 
                     ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Sin[theta])/2 + 3*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(-5.*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                         Sin[phi]^2) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                          (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
                          4))) + 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta]*
                        Cot[theta]*Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[
                          2*theta]) + Sin[phi]^2) - 2*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]))*
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[2*theta]*Cot[theta] - 0.000018*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                      Cos[phi]*Cos[theta]*Sin[theta] + 3*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(-1 + 1.*^-6*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Cos[theta]*Sin[theta])))/
                   (-Csc[theta]^3 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
                     5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                      Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 
                     4.999999999999999*^-19*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                        Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                      (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                        Sin[phi]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                        (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                         Sin[phi]^2) - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                          (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
                          4))) + 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                        Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                          Cos[2*theta] + Sin[phi]^2) - ((336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                     3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2))*Csc[theta]^5*Sin[phi]*(0.000027*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                      (1 + 3*Cos[2*phi])*Cos[theta] + 18*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(Cos[phi]*(-4*Cos[theta]*
                          Cot[theta] + Csc[theta]) + 1.*^-6*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                         Sin[phi]^2)) + ((-96/(E^(r^2/4)*r^4) + 
                         (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                        2*Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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 + 
                     ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Sin[theta])/2 + 3*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(-5.*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                         Sin[phi]^2) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                          (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
                          4))) + 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta]*
                        Cot[theta]*Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[
                          2*theta]) + Sin[phi]^2) - 2*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]))*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])))/(-Csc[theta]^3 + 
                     1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2*Csc[theta]^3 + 5.3999999999999996*^-17*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                      Cos[phi]*Cos[theta]*Sin[phi]^2 + 1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*Csc[theta]*
                      Sin[phi]^2 + 4.999999999999999*^-19*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                        Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                      (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                        Sin[phi]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                        (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                         Sin[phi]^2) - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                          (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
                          4))) + 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                        Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                          Cos[2*theta] + Sin[phi]^2) - ((336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (2.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                     3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*Sin[phi]*
                    (-((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Cos[
                        2*theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) - (1.*^-6*(96/(E^(r^2/4)*r^4) - 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                     3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                     r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2))*Csc[theta]^2*Sin[phi]*Sin[2*theta]*
                    (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]^
                       2 + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                          Sin[theta]))*Sin[2*theta]))/(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                    1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                     3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2))*Cos[2*theta]*Csc[theta]*Sin[phi]*
                    (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) - (3.*^-12*r*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[phi]*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)/2)*
                    Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                     Sin[theta]^2 + 5.3999999999999996*^-17*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*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*
                    (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Sin[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                    2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                      3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(-4*Cos[phi]*Cos[theta]^3*Sin[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*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                    (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                          2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*(1 + 3*Cos[2*phi])*
                         Sin[2*theta] + 9*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                          2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                          3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                          3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                       2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                      (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                         2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                          Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                          Sin[phi]^2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                          Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*
            (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
              r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]*
            ((-5.*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                 ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))))/(r*(1 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                  1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Sin[2*theta]))*((2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]*
              Sin[theta]*((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]*
              Sin[theta]^2*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))))*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                  Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Cos[phi]*Cos[theta] - 2*Sin[theta] + 4.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[theta]*Sin[2*theta])*(1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                    (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                     Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                      5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                    1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                      5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                    1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (9*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (3*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r))/2 + r*(3*(1440/(E^(r^2/4)*r^6) - 
                      (90*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (39*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) + 
                    (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                      (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                 (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta]))/4))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (9*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (3*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r))/4 + r*(3*(1440/(E^(r^2/4)*r^6) - 
                      (90*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (39*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^3) + 
                    (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                      (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
               (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*Sin[theta]^2*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
               ((480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] - 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(-3.75*^-7*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]) - 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                     (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(0.000018*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[theta]^2 + 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]*Sin[theta]^4 - 3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(2.*^-6*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      4 + Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 (-Cos[2*theta] + 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]^3 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[2*theta] + 
                    Sin[4*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) + (4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Sin[theta]^2)/2)*Sin[2*theta])/
                (r*(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Sin[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                    (-2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]*Sin[theta]^2 + (3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[theta]*
                       (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                         3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                         3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(1.*^-6*Sin[theta]^2*(0.000027*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta] + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]*Sin[theta]^2)/2 + 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Sin[theta]*(-2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Cos[phi]^2*
                          (Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*
                          Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/2 + 
                    18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                        4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                      2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2) - (3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(1.*^-6*Sin[theta]^2*(0.000027*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta] + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]*Sin[theta]^2)/2 + 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Sin[theta]*(-2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Cos[phi]^2*
                          (Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*
                          Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/2 + 
                    18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                        4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*(1 + 
                      2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2)) - 
           1.*^-6*r^2*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                  (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
             (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
            ((1.25*^-13*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]*
               Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta])))/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[
                phi]*Cos[theta]*Sin[phi]*Sin[theta]^2*(
                (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                   9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                 (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(2*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta])) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]))))/(4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 2.1599999999999998*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))*(-1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                 ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/
              (r^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))*(1 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                  1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Sin[2*theta]))*(2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.16*^-10*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]^2*Sin[phi]*
                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                    Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                   (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*(-((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi]) + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(2*Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(8*Cot[theta]*Sin[phi] + 1.*^-12*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                        Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                      (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[
                         4*theta]))))/4 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-4*Cot[theta]*Sin[phi] - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                    Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                  1.25*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                    3*Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
                5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                   Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                   Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                    Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                   (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                    Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                      Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                 ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                    Sin[theta]^2 - 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                  2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])) + 
                2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
                -1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                    Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*(-1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                  r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*(
                (1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                  1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Sin[2*theta]))*((-1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                   r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                    Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                   ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*Cos[
                        2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*(-1.*^-6*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                       (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                    7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
                     Sin[theta] + r*Cos[phi]*Sin[theta]^2*
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                      3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*Sin[
                          2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 
                1.*^-12*r*(7.2*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                    (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) + 4*r*Sin[theta]*
                   ((1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                    3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                   (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                     Sin[4*theta] + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 
                  0.000012*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[theta]*(2*r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                      3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Sin[phi]^2*Sin[
                        2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]*Cos[2*theta] + 
                      2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                         Sin[4*theta]))))*(-3.75*^-7*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]) - ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/4 - 2.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                     (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 
                r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[theta]*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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]^2*((-3*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)]))/4 - (r*(10080/(E^(r^2/4)*r^6) - 
                       (630*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                       (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (87*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 + (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (4*(8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*
                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(2 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)]))/4 + 9*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                    3*r*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)]))*Sin[theta] + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (8*Cos[phi]*Cos[theta]*Cos[2*theta] + 4.*^-6*r*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[theta]^2*Sin[theta] - 4.*^-6*r*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[2*phi]*Cos[theta]^2*Sin[theta] + 4.*^-6*r*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 
                      0.000048*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[theta]^2*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
                       Sin[theta] + 2.*^-6*r*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                       Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Csc[theta]*Sin[2*theta]*Sin[4*theta] + 
                      1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                        Cos[phi]^2*Sin[4*theta])) + 4*((480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(0.000012*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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]) + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta]^2*(Cos[phi]^2*
                          Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 5.*^-7*r*
                          (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]^2*
                          (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[
                          theta])) + 7.5*^-7*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 
                  4*(-1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[theta]^2*Sin[theta]*((480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(2*Cos[phi]^2*
                         Cos[2*theta] + Sin[phi]^2) + 2*((-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                        (r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                          (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + ((-8*r)/
                          E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 16*r*
                          (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]^2*
                       Sin[theta]^2) + 0.000018*r*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^
                      2*Cos[phi]*Cos[theta]*Sin[theta]^2*(-1 + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]) + Sin[theta]*
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                      (r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                         (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + ((-8*r)/
                          E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 16*r*
                          (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/2 + 
                      3*r*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta])) + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(-1 + 1.*^-6*r*(-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta] + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2.5*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]^2 - 2*Cos[theta]*
                         Sin[theta]*(1 + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                          (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                          (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta]))) + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (2*Cos[phi]*Cos[theta]*Sin[theta]^2*((-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                        r*((10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                          (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + ((-8*r)/
                          E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
                          4))) - 48*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*1/E^(r^2/
                          4) + r^2/(16*E^(r^2/4)) + (-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))/2 + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/4 + 
                          2*(-3/(4*E^(r^2/4)) + (3*r^2)/(8*E^(r^2/4)) + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) - (r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/2))/r)/4 + 3*(1440/(E^(r^2/4)*r^6) - 
                          (90*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                          (39*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*(-1 + 2.5*^-7*
                          (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))) + (480/(E^(r^2/4)*
                          r^5) - (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*(Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                          Cos[phi]^2*Sin[4*theta])))))))/
              (r^2*(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                      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*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                    1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Sin[2*theta]))*(-4*Cos[2*theta]*
                   Sin[phi] + 8.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[phi]*Sin[theta]^3 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Sin[2*phi]*(-Sin[2*theta] + 
                    Sin[4*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2 + 3*r*(-240/(E^(r^2/4)*
                      r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) - 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)))*Sin[phi]*Sin[2*theta]*(-4*Cos[phi]*
                   Cos[2*theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[2*theta] + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*
                 (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                    1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Sin[2*theta]))*(0.000054*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 
                  2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 
                  72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                      4*Cos[theta]*Sin[phi]^2)*Sin[theta]) + 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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])) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*(-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                      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*(48/(E^(r^2/4)*r^4) - 
              (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
              ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + 1.5*^-12*((3*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
             Cos[phi]*Cos[theta]*Sin[theta]*
             ((-1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Sin[2*theta]*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (4*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] + 
                  Sin[theta]*(1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                     (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
             Sin[theta]*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))^2/
             (4*r^2) - (2.5*^-13*Sin[phi]^2*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*Sin[theta]*(-1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                       5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                     1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 + ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                       5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                     1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 + (1.*^-6*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(-1 + 
                     1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*(9*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (3*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                   r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                       (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                       ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*
                  (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                ((9*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (3*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
                   r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                       (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                       ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                  2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*Sin[phi]^2*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)*
                  Sin[2*theta])/(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta]*(3.75*^-7*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1/4*((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                        Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                         2*(phi + theta)])*Sin[theta]^2) + 12*
                      (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(-3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]) + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]))/4 + 2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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 + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (4*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                        Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (-3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^3*Cos[2*theta]^
                          2*Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[
                          4*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                          (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                          (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(-4*Cos[phi]*Cos[theta]^3*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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                   (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                        Sin[4*theta])))) + Sin[phi]*
                ((-1.9999999999999998*^-18*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]^3*Sin[phi]*
                   (0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta] + 18*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(Cos[phi]*(-4*Cos[theta]*
                         Cot[theta] + Csc[theta]) + 1.*^-6*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                        Sin[phi]^2)) + ((-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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 + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]*Sin[theta])/2 + 3*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(-5.*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                        Sin[phi]^2) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                         (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                        2*Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                         (-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 
                      2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]))*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2 + 1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                     Cot[theta] - 0.000018*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Cos[theta]*
                     Sin[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])))/
                  (-Csc[theta]^3 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
                    5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 
                    4.999999999999999*^-19*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*
                       Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
                    9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                       Sin[phi]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                       (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                        Sin[phi]^2) - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                         (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                        2*Cos[phi]*Cos[2*theta]*Cot[theta]*Csc[theta]*
                       (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - 
                      ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (1.*^-12*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2))*Csc[theta]^5*Sin[phi]*(0.000027*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta] + 18*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(Cos[phi]*(-4*Cos[theta]*
                         Cot[theta] + Csc[theta]) + 1.*^-6*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                        Sin[phi]^2)) + ((-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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 + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)^2*Cos[phi]*Sin[theta])/2 + 3*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(-5.*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                        Sin[phi]^2) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                         (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                        2*Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                         (-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 
                      2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]))*Sin[2*theta]*
                   (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))/(-Csc[theta]^3 + 
                    1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2*Csc[theta]^3 + 5.3999999999999996*^-17*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     Cos[phi]*Cos[theta]*Sin[phi]^2 + 1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*Csc[theta]*
                     Sin[phi]^2 + 4.999999999999999*^-19*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*
                       Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
                    9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                       Sin[phi]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                       (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                        Sin[phi]^2) - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                         (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                        2*Cos[phi]*Cos[2*theta]*Cot[theta]*Csc[theta]*
                       (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - 
                      ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (2.*^-12*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*Sin[phi]*
                   (-((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Cos[
                       2*theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*Sin[2*theta]))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (1.*^-6*(96/(E^(r^2/4)*r^4) - 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2))*Csc[theta]^2*Sin[phi]*Sin[2*theta]*
                   (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]^
                      2 + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                         Sin[theta]))*Sin[2*theta]))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                    3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2))*Cos[2*theta]*Csc[theta]*Sin[phi]*
                   (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (3.*^-12*r*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[phi]*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)/2)*
                   Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                    Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 
                   2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                   (-(Sin[phi]*Sin[theta]^2*(-2*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                         2 + (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Sin[theta]*(5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                          2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                          3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                          3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                     Sin[theta]^2 + 1.0799999999999999*^-16*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                        2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                         Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
            (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
           Cos[2*theta]*((-5.*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(r*(1 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((2.5*^-7*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[2*theta] + (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]*
             Sin[theta]*((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]*
             Sin[theta]^2*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              ((-1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                  2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[theta] + 
                    Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                     5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                     5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*(480/(E^(r^2/4)*r^5) - 
                 (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-336/(E^(r^2/4)*
                   r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(9*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                 (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                 r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                     (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(9*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                 (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
                 r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                     (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4))*Cos[phi]*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(2 - 
                5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                Cos[phi]*Sin[theta]^2*(3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              ((480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2)*(-2 + 6.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*Sin[2*theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] - 
                 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-3.75*^-7*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                    (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[theta]^2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Sin[theta]^
                   4 - 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-Cos[2*theta] + 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta]^3 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(-Sin[2*theta] + 
                   Sin[4*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[2*theta] + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Sin[theta]^2)/2)*Sin[2*theta])/(r*(-2 + 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                   (-2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]*Sin[theta]^2 + (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]*
                      (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(48/(E^(r^2/4)*
                         r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*(8*Cos[phi]*(1 + 
                        2*Cos[2*theta]) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 6*Cos[2*phi] + 
                        3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                        3*Cos[2*(phi + theta)])*Sin[2*theta]))) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(4*(1 + 2*Cos[2*theta])*
                    Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(1.*^-6*Sin[theta]^2*(0.000027*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta] + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]*Sin[theta]^2)/2 + 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Sin[theta]*(-2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Cos[phi]^2*
                         (Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*
                         Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/2 + 
                   18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                       4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*
                    (1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2) - 
              (3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(1.*^-6*Sin[theta]^2*
                  (0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta] + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]*Sin[theta]^2)/2 + 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Sin[theta]*(-2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Cos[phi]^2*
                         (Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*
                         Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/2 + 
                   18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                       4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(8*Cos[phi]*
                    (1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2)) + 
          r^2*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
              (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
           ((1.25*^-13*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
               (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]*
              Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta])))/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]*
              Sin[theta]^2*((((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[theta]*(2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                  9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]^2*Sin[2*theta]^2))/2 - 2.5*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (2*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
               1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2*Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
             (4 - 1.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 7.5*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*(-1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) + (r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/
             (r^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
              (1 - 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*(2.*^-6*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(2*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]^2*Sin[phi]*
                (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                   Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                  (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(-((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi]) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(2*Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
               ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(8*Cot[theta]*Sin[phi] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]*
                     (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
                4 + 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-4*Cot[theta]*Sin[phi] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(1 + 4*Cos[2*theta])*
                  Sin[2*phi] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*Sin[phi]*
                  (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[2*theta]*
                    Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                   Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/4)*Sin[phi]^2*Sin[2*theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta] - 
                 2*Sin[theta] + 4.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[theta]*
                  Sin[theta]^2 + 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])) + 2*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (-Sin[theta] + Sin[3*theta])))*((2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*
              (-1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                   Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((-1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                   (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*(-1.*^-6*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                      (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                   7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                   3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                   r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                     3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                        Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 
               1.*^-12*r*(7.2*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                   (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) + 4*r*Sin[theta]*
                  ((1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                   3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(1 - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                   3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                    Sin[4*theta] + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                  (2*r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                     3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Sin[phi]^2*
                      Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(2*Cos[phi]*Cos[2*theta] + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))))*(-3.75*^-7*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]) - ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 - 2.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                    (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + r*
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                      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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  ((-3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)]))/4 - (r*(10080/(E^(r^2/4)*r^6) - 
                      (630*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (87*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(2 - 
                      2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                      Cos[2*(phi + theta)]))/4 + 9*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                     Cos[2*(phi + theta)]) + 3*r*(1440/(E^(r^2/4)*r^6) - 
                     (90*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (39*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*(1 - Cos[2*phi] + 
                     Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                      2*(phi + theta)]))*Sin[theta] + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (8*Cos[phi]*Cos[theta]*Cos[2*theta] + 4.*^-6*r*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[theta]^2*Sin[theta] - 4.*^-6*r*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[2*phi]*Cos[theta]^2*Sin[theta] + 4.*^-6*r*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 
                     0.000048*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[theta]^2*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
                      Sin[theta] + 2.*^-6*r*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*
                      Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Csc[theta]*Sin[2*theta]*Sin[4*theta] + 
                     1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                       Cos[phi]^2*Sin[4*theta])) + 4*((480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(0.000012*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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]) + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta]^2*(Cos[phi]^2*
                          Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 5.*^-7*r*
                          (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]^2*
                          (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[
                          theta])) + 7.5*^-7*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))) + 4*(-1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^2*Sin[theta]*
                    ((480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                     2*((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                       (r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                          (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + ((-8*r)/
                          E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 16*r*
                          (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]^2*
                      Sin[theta]^2) + 0.000018*r*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^
                     2*Cos[phi]*Cos[theta]*Sin[theta]^2*(-1 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + Sin[theta]*
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                     (r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                        ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/2 + 
                     3*r*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(-1 + 1.*^-6*r*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2.5*^-7*
                        (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]^2 - 2*Cos[theta]*
                        Sin[theta]*(1 + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                          (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                          (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta]))) + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (2*Cos[phi]*Cos[theta]*Sin[theta]^2*((-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4 + 
                       r*((10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                          (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + ((-8*r)/
                          E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 16*r*
                          (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/4 + 
                         3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                          (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r^3)*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))) + (480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]*
                        (Cos[theta] + Cos[3*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                         Cos[phi]^2*Sin[4*theta])))))))/
             (r^2*(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                    Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                   1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Sin[2*theta]))*(-4*Cos[2*theta]*
                  Sin[phi] + 8.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[phi]*Sin[theta]^3 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Sin[2*phi]*(-Sin[2*theta] + 
                   Sin[4*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
                 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) - 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2 + r*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)))*Sin[phi]*
                Sin[2*theta]*(-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*
                (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                    Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                   1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Sin[2*theta]))*(0.000054*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 
                 2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 
                 72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                     4*Cos[theta]*Sin[phi]^2)*Sin[theta]) + 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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])) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^2)))/
         (Sqrt[2]*r))/2))/(Sqrt[2]*r) - 
   ((((-I)*Csc[theta]*(-1.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
            (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[phi]*
           Sin[theta]*((-1.*^-6*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])))*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] - 4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  (3*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r))/4)*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))) - 
            2.5*^-13*r*((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[2*theta] + (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 - (1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 - (2.5*^-7*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                    Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                   ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]^2 + (3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Sin[
                        2*theta]))/4))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + 
                (((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                   (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                   (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta]*(-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                    Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[phi]*
                  Sin[phi]^2*Sin[theta]^2*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))) - (1.*^-6*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                  (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                   ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]) - 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                        2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/
                      4 - 12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                      (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                 (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                     3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                   9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.5*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                   3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                     3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                   9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (6.*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(9.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + 6.25*^-8*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (Cos[phi]*Cos[2*theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]^2*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                Sin[theta]*(Csc[theta]^2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-0.000054*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))/8 - 18*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-1.25*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
             Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[2*theta]*
                 Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (3*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 + 4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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.*^-13*Sin[phi]*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))/
             r + (2.5*^-7*Sin[phi]*((1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
                Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (1.*^-6*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (2.5*^-7*((-105*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                 (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                    16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                 ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                       (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                     (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*
                Csc[theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.5*^-7*((21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                  r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
                Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Cos[phi]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((-15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                   (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                   (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                   (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]^2*Cos[2*theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              (1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
              (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                 (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                 (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                    (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]^2*Cos[2*theta]^2)/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (5.*^-7*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Csc[theta]^2*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (5.*^-13*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                     (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                   Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                      3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                    9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                   (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                     (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                   Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                      3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                    9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta]*
                 (Csc[theta]^2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*
                 (-0.000054*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]))/8 - 18*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                     Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*(-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                     ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta])))^2))/r) - 1.*^-6*r^2*
           (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
                4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           ((5.*^-7*(1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*(3.6*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
              (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))*(0.000072*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]^2 + 
                 Cot[theta])*Sin[phi]^2 - ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Csc[theta]^2*
                 (4 - 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(12*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) - 
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cot[theta]*
                  Sin[phi]^2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*Cos[phi]*(14*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
               8.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[phi]*(-(Cos[phi]*(Cos[theta] + Cos[3*theta])*
                   Csc[theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) - (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((-2.5*^-7*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                   Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + ((-21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (1.*^-6*(-2.*^-12*
                (-2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]^2*
                  Sin[theta]^2 - 7.5*^-7*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - (3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 
                    2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                   Sin[2*theta]^2)/2 + 9.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                  (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + Cos[phi]*(-4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[4*theta])) - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]))) + (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + 3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-6*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + (((-105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) - 5.*^-7*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*
                  (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-12*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                     2 + (((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                     (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 - (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(12*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(0.000012*((3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + 12*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                     2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                      Sin[theta]) - 2.5*^-7*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3) - 
                   ((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-2*Sin[phi]^2*
                      Sin[theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((30*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 - (30*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                     (15*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (5*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(480/(E^(r^2/4)*
                         r^5) - (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
                      ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + (((-105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                        ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[2*theta])/
                      4) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                    (2*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                       (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*(-1/8*
                          1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((-15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3)*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (-2*((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                       (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^4 - (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + 1.*^-6*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*
                      (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                       3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                          E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                        Sin[4*theta]))))))/(-8 + 2.*^-12*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                   Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                  (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(-8*Cot[theta]*Sin[phi] - 
                 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                   Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                   3*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*
                       r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(8.*^-6*Sin[phi]^3*
                       Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[
                        4*theta]))/4)) + 2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + r*(3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*((Cos[theta]^2 + 
                     Cos[2*theta])*Sin[2*phi] - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cot[theta]*Sin[phi] + 
                    5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*Cos[2*theta]*
                       Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                        Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))) + (2.5*^-7*(-2.*^-6*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                      theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 
                 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]^2*Sin[2*theta]^2 - 
                 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]^2*Sin[2*theta]^2)*(-6.*^-6*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                  Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]))*(-0.000216*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - 72*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))/4 + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(-96/(E^(r^2/4)*r^4) + 
           (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
           (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
             (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
          ((-1.*^-6*(3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[
                phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-12*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                  2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))))/(8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
              Sin[theta]^2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(
                48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] - 4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - (3*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-2 + 1.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
            ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))) - 
           2.5*^-13*r*((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
               (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*(
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*((-1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*(
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                 (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r))/2)*Sin[theta]^2)*(1.*^-12*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*(1 + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) + Cos[phi]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                        2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-105*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                  (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                  ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-6*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta]))/4))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (((30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^6 - (30*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                  (15*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (5*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (2.5*^-7*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta]*(-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                 (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
               (1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
               (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3) + 
                  ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                    (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]) - 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                       Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                        2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                     (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                 (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                   (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                    3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                  9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (1.5*^-6*((3*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[
                phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                 Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                 (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                   (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4 - 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta] + 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                  2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                    3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                  9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 + (6.*^-6*((3*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[
                phi]*Sin[2*theta]*(9.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + 6.25*^-8*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (Cos[phi]*Cos[2*theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]^2*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*Sin[theta]^
                2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) - 
             (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^
                2*Sin[theta]*(Csc[theta]^2 - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] + 
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                -0.000054*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*
                 (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]))/8 - 18*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-1.25*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
           (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
              r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
          ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(
                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*Csc[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + (3*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(3.*^-6*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 + 4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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.*^-13*Sin[phi]*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*Cos[phi]*(
                -6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-12*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                  2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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 + 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))/r + 
           (2.5*^-7*Sin[phi]*((1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
               Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*(
                -1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                    2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 + (1.*^-6*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                    2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (2.5*^-7*((-105*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                   32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                   16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                     (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                      (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                    (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[phi]*Csc[
                theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                 r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                  32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                     (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                  16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                    (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*Csc[theta]*
               Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                  Cos[3*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/2 - 
                3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Cos[phi]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((3*((-15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                  (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^3) + ((105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                  (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^5 + (48*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                  (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (3*(8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2)))/r^2 - ((-8*r)/E^(r^2/4) + 8*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                    48*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2) + 16*r*
                     (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                        (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                      (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2)*(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]^2*Cos[2*theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                 2))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                    Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 - 
                (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                -3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(3*(-240/(E^(r^2/4)*
                       r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta]) - 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                  12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                    Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-4*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                     Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*(((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                        2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
              (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]^2*Cos[2*theta]^2)/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (5.*^-7*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Csc[theta]^2*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (5.*^-13*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                  Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (5.*^-7*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                  Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (6.*^-6*((3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta]*
                (Csc[theta]^2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta]*(-0.000054*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(2*Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                 18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))^2))/
            r) + r^2*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
          ((5.*^-7*(1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             (3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*(
                -6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-12*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                  2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
             (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
             (0.000072*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
              ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Csc[theta]^2*
                (4 - 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*(12*Cos[theta]^2*
                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) - 
              (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-(Cos[phi]*
                  (-1 + Cot[theta]^2)) + 0.000021*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cot[theta]*Sin[phi]^2 + 
                9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (14*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
                   Sin[4*theta])) + 8.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(
                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                  Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                    Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])))) - (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 
              2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(
                48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[
                phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Cos[theta]*Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Sin[2*theta]))*
             ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^
                2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                  Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*(
                -1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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]*(
                (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(48/(E^(r^2/4)*
                  r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[theta]*(1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[phi]*
                   Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                     Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
             ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]) + 
              9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*
                   r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                   Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                    4*theta])))) - 
           (1.*^-6*(-2.*^-12*(-2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[phi]^2*
                 Sin[theta]^2 - 7.5*^-7*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       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*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - (3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 
                   2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                  Sin[2*theta]^2)/2 + 9.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                    3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-(Sin[phi]^2*
                    Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*
                 (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                      2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                4*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                     Sin[phi]^2) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                  1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                   (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                       r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                 (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))) + (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[phi]*
                 (-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-6*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + (((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                      r^6 + (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                   4) - 5.*^-7*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*
                 (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) - 
                5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(-12*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                    2 + (((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                     (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(4*Sin[phi]^2*
                      Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                  1.*^-6*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                    (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 - (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                3.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                     r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(0.000012*((3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  12*((-15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (6*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                    2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-7*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*
                   ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + Cos[phi]^2*Sin[2*theta]^3) - 
                  ((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (3*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-2*Sin[phi]^2*
                     Sin[theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^6 - (30*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (15*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (5*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/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*(480/(E^(r^2/4)*
                        r^5) - (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
                     ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + (((-105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (105*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (48*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (13*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^3 - (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                       ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[2*theta])/
                     4) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                   (2*((-105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                      (105*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (48*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 + (13*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                      (3*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((-15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (6*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3)*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (-2*((30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                      (30*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (15*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^4 - (5*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + 1.*^-6*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Sin[phi]^2*
                     (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                      3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Sin[4*theta]))))))/
            (-8 + 2.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 + 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 - 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]^
                2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 
              0.000036*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                 (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                   Sin[4*theta])) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-8*Cot[theta]*Sin[phi] - 
                1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                  Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                  3*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(2*Cos[2*theta]*
                   Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(8.*^-6*Sin[phi]^3*
                      Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[
                       4*theta]))/4)) + 2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*((Cos[theta]^2 + 
                    Cos[2*theta])*Sin[2*phi] - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta])) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cot[theta]*Sin[phi] + 
                   5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*Cos[2*theta]*
                      Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                       Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
              5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2 + 
              1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                  Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                    Sin[phi]^2))/2))) + 
           (2.5*^-7*(-2.*^-6*(3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2) - 
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
               (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]^2*
                 Sin[2*theta]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[2*theta]^
                  2)*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*
                    r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                 Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))*(-0.000216*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - 72*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                      Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))/4 + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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]*(-1.*^-6*r*(-96/(E^(r^2/4)*r^4) + 
            (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
            (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
              (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
              16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[phi]*
           Sin[theta]*(((1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(2*r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) - 5.*^-7*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))))*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))) + 
            5.*^-7*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))) + 
            (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((-5.*^-13*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] - 4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  (3*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r))/4)*Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
              (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
             ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]*
             ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[2*theta] + (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Sin[2*theta]*(1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*
                ((3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
                 (r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                    ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((480/(E^(r^2/4)*r^5) - 
                 (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                  Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                  Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(9*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                 (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                 r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                     (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                  2))/(-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                      (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                     Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                    (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                         2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - (4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (6*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                  Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(r*
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2) - (1.5*^-6*
                (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                  Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                  Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (6.*^-6*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(Cos[phi]*Cos[2*theta] - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[2*theta]*
                Sin[phi]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^2))/(r*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/(r*
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta]*(-0.000054*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                     Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                 18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
              (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
             Sin[2*theta])*((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((-5.*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[2*theta]*Csc[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (3*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 (2 + 4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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]*
              ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))))*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))*(Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[3*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[3*theta]))/(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
             Sin[phi]*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cot[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) + (2.5*^-13*Sin[phi]*
              ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*
                       Sin[4*theta])))))*(-((Csc[theta]*(-2 + 5.*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))/
             r + (2.5*^-7*Sin[phi]*((1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
              (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                 E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]*
             Sin[theta]*((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                 (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                   (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                     (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + 
                 ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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]*((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                   (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                         (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                     (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                      1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                        2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 + (1.*^-6*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                         (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                        r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                     (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[theta]*(1 + 0.000012*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*
                         (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 
                      1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                        2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                        (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                        2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                          2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                       (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                        (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                          (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                        2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                          (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                       (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                   2 - (1.*^-6*((3*(-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
                    (r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                       ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                   Csc[theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (Csc[theta]*(-2 + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                    ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                       Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - (1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                    ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + r*(3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Cos[phi]*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                     (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^2)*Cos[phi]*Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) - ((9*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) - (3*(-1680/(E^(r^2/4)*r^5) + (105*
                         (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                    r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                        (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^3) + (-10080/(E^(r^2/4)*r^6) + (630*
                          (16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 - 
                        (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 + (87*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^4 - (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 32*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                        ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*
                   (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta]))) + (6.*^-12*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]^2*Cos[2*theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2))/
                  (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^2)*(-3.75*^-7*(-240/(E^(r^2/4)*
                        r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*(8*Cos[theta]*
                          Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3))/4) + ((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(3*(-240/(E^(r^2/4)*
                          r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]) - 
                       ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                        (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                         (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                         (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                         (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                         (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/
                       4 - 12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                        Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                       (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                        (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                        Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                         Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                      1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                       (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 16*r*
                          (-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                  (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Sin[phi]^2*Sin[theta]^2 + 
                    1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                     Sin[2*theta]^2 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                        2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                         Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^
                          3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                          3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Csc[theta]^4*(0.000027*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 
                    2*Cos[2*theta])*Csc[theta]^2*Sin[phi]^2 + 
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + 
                       Cos[3*theta])*Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/
                   8 + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(6.25*^-8*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
                       Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + 
                      (-1 + 3*Cot[theta]^2)*Sin[phi]^2)) - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Csc[theta]^2*
                      (Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                       2*Cot[theta]*Sin[phi]^2) - 1.*^-6*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(-Csc[theta]^3 + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2*Csc[theta]^3 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2 + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*Csc[theta]*
                   Sin[phi]^2 + 4.999999999999999*^-19*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                     Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                     (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                      Sin[phi]^2) - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[2*theta]*Cot[theta]*Csc[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                        Sin[phi]^2))/2))^2 + (2.*^-6*(96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 Csc[theta]^2*Sin[2*theta]*((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4 + 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 Cot[theta]*Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Csc[theta]*
                 Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2*(96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[2*theta]*
                 Csc[theta]^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (2*(96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cot[theta]*
                 Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                 Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                 (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                   (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                     (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                   Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Cos[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[theta] - 
                    2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(2 + 
                      3*Cos[2*theta])*Sin[theta] - 6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*(Cos[theta] + 2.5*^-7*
                       (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 
                    9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                     Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))^2 + (2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta])/2 - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta])) + 4.5*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(Sin[theta] - 3*Sin[3*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta]*(-0.000054*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 
                    2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]))/8 - 18*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^2*(Cos[theta]*Sin[phi]^2*
                     Sin[theta] - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*(-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*
                          r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                     ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                          (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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^2*
           (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^
                4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
              (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
              (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
           (-1/4*(1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))^2/(r^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2) - 
            (1.*^-6*r*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                    5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                    2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))*(1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*Sin[phi]^
                    2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta]))) - 1.*^-6*r*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))*(1.*^-6*(9*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) - 
                  (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                  r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                      (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                   Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*Sin[2*theta]) + (-2 + 1.*^-6*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
                   Sin[phi]^2 - ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[2*theta]^
                    2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[2*theta]^2) + 1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Cos[2*theta]*Cot[theta] + 
                  3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                   2) - 6.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])) + ((3*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r))/4 + (r*(10080/(E^(r^2/4)*r^6) - 
                     (630*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                     (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^5 - (87*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^4 + (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^3 - 
                     (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 32*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                          (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*
                        r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + 
                      (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                       r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta])))/(2*r^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2) - (1.25*^-13*((-6*(16/E^(r^2/4) - 
                  (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
               (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*
                Sin[theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Sin[2*theta])))/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
               (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                  E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                 16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
              Sin[theta]*(3.6*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*(-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta] + 
                 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*
                  (2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-12*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[phi]^2*Sin[theta]^2 + (((21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (21*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (2*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(4*Sin[phi]^2*
                     Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                   Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]))))/(8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 4.3199999999999997*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*(0.000072*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(6.*^-6*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]^2 + 
                 Cot[theta])*Sin[phi]^2 - ((-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Csc[theta]^2*
                 (4 - 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(12*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) - 
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*
                (-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cot[theta]*
                  Sin[phi]^2 + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*Cos[phi]*(14*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
               8.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[phi]*(-(Cos[phi]*(Cos[theta] + Cos[3*theta])*
                   Csc[theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                  (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                  Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                 1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*Sin[2*theta]))*((-5.*^-7*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                      r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                  (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(r^2*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))*
              ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                   Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)^2*Sin[phi]^2*
                   Sin[theta]^2 - (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                    2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
              (-1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                Cos[theta]^2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                   Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                (-1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                    (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                 7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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]*
                ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                      Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
              (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta])))) - 
               ((-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                 Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*
              ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                  3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                 Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Cos[2*theta]*
                   Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                  (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Sin[phi]*(Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(-8*Cot[theta]*Sin[phi] - 
                 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                   Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                   3*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*
                       r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(8.*^-6*Sin[phi]^3*
                       Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[
                        4*theta]))/4)) + 2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + r*(3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*((Cos[theta]^2 + 
                     Cos[2*theta])*Sin[2*phi] - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cot[theta]*Sin[phi] + 
                    5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*Cos[2*theta]*
                       Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                        (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                       Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                        Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*
                          r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                         r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                  Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                   Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                  (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                   Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2))/2))) + (5.*^-7*(-1.*^-6*
                (18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
                 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) - 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2 + r*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)))*Cos[phi]*
                Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                      theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 
                 6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]^2*Sin[2*theta]^2 - 
                 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]^2*Sin[2*theta]^2)*(r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2) - 0.000018*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                    Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                   1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Sin[2*theta]))*(2 - 5.*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*
                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*
                (r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (1 - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                    Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                   1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[phi]*Sin[2*theta]))*(-0.000432*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                 72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[2*theta]) + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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) - 2*Cos[phi]^2*
                    Sin[4*theta]) - 4*(((336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))/4 + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2.5*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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))))/(r^2*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     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*(-96/(E^(r^2/4)*r^4) + 
           (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
           (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
             (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
             16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
          (((1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))))/(2*r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*(
                Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])))) - 5.*^-7*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-2 + 5.*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                    r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))*
            ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
               (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*(
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))) + 
           5.*^-7*((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 
                1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
               (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*(
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))) + 
           (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[
                phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Cos[theta]*Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] - 4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - (3*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
             (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
            ((1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
             (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]*
            ((-2.5*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(3*((3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Sin[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-2*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  Cos[2*theta] + (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (4*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (3*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 
                1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                    2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                  ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                    (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                    2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 - (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((3*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r))/4 + (r*(10080/(E^(r^2/4)*r^6) - 
                   (630*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                   (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^5 - (87*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 + 
                   (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (4*(8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                      (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                         (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                       (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*Sin[
                2*theta]*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((480/(E^(r^2/4)*r^5) - 
                (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(-2 + 1.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*(
                2.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (6*(-240/(E^(r^2/4)*r^5) + 
                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-2 + 1.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*
                 (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                 Sin[2*theta])*(-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                  (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                 Sin[4*theta]))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(9*(-240/(E^(r^2/4)*r^5) + 
                  (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3) - 
                (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                    (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                    (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                    ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^
                2*Sin[theta]^2*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                -336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
                3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*(
                -3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3))/4) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(3*(-240/(E^(r^2/4)*
                       r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[theta]*Sin[theta]) - 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                       (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                  12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                      r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                    Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (-4*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*
                     Sin[phi]^2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Cos[phi]*(((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                        2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
              (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
               (5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) - (4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Sin[2*theta]*
               (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))) + (6*(-240/(E^(r^2/4)*r^5) + 
                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
               (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                   (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                 Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
              (r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2) - (1.5*^-6*(-240/(E^(r^2/4)*r^5) + 
                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]))*(2.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                 (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                   (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                 Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                  6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2 + (6.*^-6*(-240/(E^(r^2/4)*r^5) + 
                (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*(
                9.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(Cos[phi]*Cos[2*theta] - 
                  2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[2*theta]*Sin[phi]^
                2*(3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*Sin[
                2*theta]*(Csc[theta]^2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
              (r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                  (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*(
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta]*(-0.000054*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - ((336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 (-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 + 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(48/(E^(r^2/4)*r^4) - 
             (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
             ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 - 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]*Sin[theta]^2*
          ((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(
                336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[
                phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Cos[theta]*Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*Cos[2*theta]*Csc[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + (3*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r))/4)*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(3.*^-6*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                 Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                (2 + 4.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] - 
                 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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]*
             ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))))*((2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Csc[theta]*Sin[phi]^2*
                Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (Csc[theta]*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Sin[3*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[3*theta]))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[2*theta] + 
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r - 3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (r*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2)*Sin[theta]^2)*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
             (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
            Sin[phi]*((-1.*^-6*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(
                3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - (((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 + (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cot[theta]*(1 + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (3.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*(3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
               Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*Sin[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*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])))) + (2.5*^-13*Sin[phi]*
             ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))))/r + 
           (2.5*^-7*Sin[phi]*((1.*^-12*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - ((2 - 2.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
             (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
                  2))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]*
            ((-2.5*^-7*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                  (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                    (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                 Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) - ((3*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                ((-21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)/2)*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                      r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta]))) + (1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta] - 
                Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                 Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                     3*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]*((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                   2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                    Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Sin[phi]^2*Sin[theta]*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Cos[2*theta] + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[theta]^2)/2) + 2.*^-6*(-96/(E^(r^2/4)*
                       r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                    (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 + (1.*^-6*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta]))*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                    (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2) + 
                   2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                        r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                     ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                         r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                       (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*
                         r^5) + (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                         2*theta])) + Cos[phi]*(1 - 1.*^-6*
                      (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Sin[2*theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*
                          r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                          ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                      4 + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Sin[2*theta]*(-1 + 
                       2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta])) - 
                   (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*
                        (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                        Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                          r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                          r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                       3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                        (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                       2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                       (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                         (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                      (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                       2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                         (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                      (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
                  2 - (1.*^-6*((3*(-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/4 + 
                   (r*(10080/(E^(r^2/4)*r^6) - (630*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (297*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                      (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + (19*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^3 - (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 + 
                      ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                  Csc[theta]*Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^
                      3) - 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - (Csc[theta]*
                  (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                       r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[theta]*(1 + 0.000012*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[theta]*
                      Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                       (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                         (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[phi]*
                  (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                     (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                     2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                    Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) - 
                ((9*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - (3*(-1680/(E^(r^2/4)*
                        r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                   r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                       (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                       (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                       ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                          (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                     (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
                   (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                        (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                        (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                     (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                       Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                     (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                      (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                     (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                      2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                        (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                        ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                     (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                        (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         r)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]^2*Cos[2*theta]*
                  (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                   ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                       r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*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*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/
                 (-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                   Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                    2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                      Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                       Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                       Cos[theta]^3*Sin[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*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                  (-3.75*^-7*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(-18*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + ((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                        Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*
                         (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                         Cos[phi]*Cos[theta]*Sin[theta]) - 
                      ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*
                          (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                          Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                       (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                        (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                        (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                        (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*(((-1680/(E^(r^2/4)*r^5) + 
                        (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                        (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                         r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/
                          4) + r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                          (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                          (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                        2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2)/
                      4 - 12*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-96/(E^(r^2/4)*
                         r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                      (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                       (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*(480/(E^(r^2/4)*r^5) - 
                       (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                       (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^3 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r^2)*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                      (((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                          (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                          r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                          32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                          16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                          16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                         (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^
                          2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                 (-2 + 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                    Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                     2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                       Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                        Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                     3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                       Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*
                        Cos[theta]^3*Sin[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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^4*
                (0.000027*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*(1 + 2*Cos[2*theta])*Csc[theta]^2*Sin[phi]^2 + 
                 ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)^2*Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + 
                      Cos[3*theta])*Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/
                  8 + (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(6.25*^-8*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
                      Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + 
                     (-1 + 3*Cot[theta]^2)*Sin[phi]^2)) - 
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Csc[theta]^2*
                     (Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                      2*Cot[theta]*Sin[phi]^2) - 1.*^-6*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))/
               (-Csc[theta]^3 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
                 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                    Sin[phi]^2) + 9.*^-12*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                    Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                     Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*
                    Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                   1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                    Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*(Cos[phi]^2*
                       Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^
                2 + (2.*^-6*(96/(E^(r^2/4)*r^4) - (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]^2*Sin[2*theta]*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                Cot[theta]*Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Csc[theta]*
                Sin[2*theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                  (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2*(96/(E^(r^2/4)*r^4) - 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[2*theta]*
                Csc[theta]^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (2*(96/(E^(r^2/4)*r^4) - 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cot[theta]*
                Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) - (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                Csc[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) + 
                 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*
                    (1 + 1.5*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*
                  Cos[2*theta]*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4 + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) - 4*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])) - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[theta] - 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                      (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                     2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                   6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                    Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/
               (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))^2 + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                Csc[theta]*(((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[theta])/2 - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (Cos[theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(Sin[theta] - 
                     3*Sin[3*theta])) + 4.5*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^2*Cos[phi]*(Sin[theta] - 
                   3*Sin[3*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*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*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta]*
                (Csc[theta]^2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta]*(-0.000054*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(2*Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                 18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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]) + (-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  (-1.25*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                       (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                      2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + 
                    ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - 
                         (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                         (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                          r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                          16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*
                  Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                  (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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) + r^2*(1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
             (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
             (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
             ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                 r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                 (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 16*r*
                (3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                 (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])*
          (-1/4*(1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))^2/
             (r^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta])))^2) - 
           (1.*^-6*r*(-1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[2*theta] + 
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
                  2) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                 (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) - 
               1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*
                     r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                  (480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 
                 ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/2 - 3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[theta]*(1 + 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta] - 
                   5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(2.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                   2 + ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[2*theta]*
                   (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta]))/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  Sin[2*theta]*(-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[
                     2*theta])) - (3*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) + 
                 (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))*(1.*^-12*
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
              (1.*^-12*(-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + 6*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                  r + r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) - 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                  Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta]))) - 
             1.*^-6*r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))*
              (1.*^-6*(9*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) - 
                 (3*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r))/2 + 
                 r*(3*(1440/(E^(r^2/4)*r^6) - (90*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^6 + (39*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 - 
                     (9*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r^3) + (-10080/(E^(r^2/4)*r^6) + (630*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^6 - (297*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 + 
                     (87*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^4 - (19*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^3 + (4*(8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                        32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                        16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                        16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2)))/r^2 - 
                     ((-8*r)/E^(r^2/4) + 8*r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 48*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) - 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 64*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2) + 16*r*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                         (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r)/2))*Sin[phi]^2*
                Sin[theta]^2*((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                  (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  Cos[phi]*Sin[2*theta]) + (-2 + 1.*^-6*(336/(E^(r^2/4)*
                     r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                  Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                   (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
                  Sin[phi]^2 - ((-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])/4 - 7.5*^-7*(-240/(E^(r^2/4)*r^5) + 
                   (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]^2*Sin[2*theta]^2 + 3.*^-6*(48/(E^(r^2/4)*
                     r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(6*(-240/(E^(r^2/4)*r^5) + 
                     (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                     (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/
                      r^3) + (1680/(E^(r^2/4)*r^5) - (105*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 + (48*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                     (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + (3*((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                      r^2 - (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                       32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                       16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                       16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                         (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/4)*Cos[phi]^2*
                  Sin[2*theta]^2) + 1.*^-6*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                  Cot[theta] + 3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*(-1 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Sin[2*theta]) + ((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta]))/
                  2) - 6.*^-6*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(480/(E^(r^2/4)*r^5) - 
                 (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                 (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])) + ((3*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r))/4 + (r*(10080/(E^(r^2/4)*r^6) - 
                    (630*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^6 + 
                    (297*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^5 - (87*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^4 + (19*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^3 - (4*(8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2)))/r^2 + ((-8*r)/E^(r^2/4) + 8*r*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 48*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) - 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      64*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2) + 16*r*
                       (-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) + 
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 + 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) + 
                          (3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) - 
                        (r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/2))/r))/4)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/4)*Cos[phi]^2*Sin[4*theta])))/
            (2*r^2*(1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
               1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                   2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                    Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                       r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta])))^
              2) - (1.25*^-13*((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
              (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                 (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
              ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                  (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]*
             (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(-6.*^-6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[theta]*Sin[
                theta] + ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*(1 + 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
            (2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[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*(16/E^(r^2/4) - 
                 (8*r^2)/E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 
                 16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
              (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                  r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                  (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
             Cos[phi]*Cos[theta]*Sin[theta]*(3.6*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*Cos[phi]*(
                -6*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 ((-6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                  (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 - (3*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2)*Cos[phi]*Cos[2*theta]^
                  2 - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Sin[2*theta] + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Sin[phi]^2*(2*((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[4*theta])) - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-12*
                 ((3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^3)*Sin[phi]^2*Sin[theta]^
                  2 + (((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(12*((3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                   Sin[theta]) - ((21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^5 - (21*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (9*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (2*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-96/(E^(r^2/4)*
                    r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (3*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))))/
            (8 - 2.*^-12*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
               2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
              (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
              Sin[theta]^3 - 1.5*^-12*(48/(E^(r^2/4)*r^4) - 
               (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                   r^2/(4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
               (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
               (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                  (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
               ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                    (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                   (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                 16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                   (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + Cos[
                2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
              Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                Sin[theta]) - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
               Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                  Sin[2*theta]^3)) + 4.*^-12*(-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                  Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 
               2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
                Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(2 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[
                phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Cos[theta]*Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Sin[2*theta]))*
             (0.000072*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                6.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
              ((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Csc[theta]^2*
                (4 - 2.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*
                  (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                  Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cos[phi]*(12*Cos[theta]^2*
                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) - 
              (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-(Cos[phi]*
                  (-1 + Cot[theta]^2)) + 0.000021*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*Cot[theta]*Sin[phi]^2 + 
                9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*
                 (14*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
                   Sin[4*theta])) + 8.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*(
                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2 + 1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                  Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                    Sin[phi]^2))/2))*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
                2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(
                48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                    r^2/(4*E^(r^2/4))))/r^3)*(1 - Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[2*theta])*(r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                   (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 
                   16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                    (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                  16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                    (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                 r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[
                phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                 (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 Cos[phi]*Cos[theta]*Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*
                     r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                   (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                   (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                     (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                       (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                   (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))))/(r^2*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta]) - 1.25*^-13*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 + 1.8*^-11*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                   Sin[2*theta]^3)) + 1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*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*(-336/(E^(r^2/4)*r^4) + 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta] + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*Cos[phi]*Sin[2*theta]) - 
              6.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                    E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                   (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
                -96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                 r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                   E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                  16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*(
                -1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                 Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Cos[theta]*
                 Sin[theta] + 2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                  (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                  (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 - 
                  (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                    (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                      (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])))*
             ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Cos[phi]*Cos[2*theta]*
                (-1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*
                  Cos[2*theta]*(1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/4)*Cos[phi]*
                    Sin[2*theta])))/(r*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                    (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    Cos[2*theta]*Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) + (3*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 - 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) + r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Sin[phi]^2*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(r*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*Sin[theta]^
                   2 - 1.0799999999999999*^-16*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                  (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                     Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                      Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                       3*Sin[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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                 Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                   (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                   (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                 Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                 (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                 (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                  2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                   Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                      r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
             (-1.8*^-11*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*Cos[theta]^
                2*Sin[theta]*((-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                (r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                   (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                    r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                     32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                     16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                       (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]^2*
                  Sin[theta]^2)/2) + 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*(
                -1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*
                   (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                7.5*^-7*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/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]*(
                (-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                   r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                    32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                    16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                      (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2 + 
                3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(48/(E^(r^2/4)*
                  r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*Cos[theta]*(1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                r*Cos[phi]*Sin[theta]^2*((-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)/4 + 3*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)*Cos[phi]*Sin[2*theta])) + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[phi]*
                   Cos[2*theta] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(Sin[phi]^2*
                     Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
             (-((Csc[theta]*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta] + 
                  2.5*^-7*r*(-1680/(E^(r^2/4)*r^5) + (105*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 - (48*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                     r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                      32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - (3*r^2)/
                         (8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                      16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                        (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Cos[phi]*
                   Sin[2*theta])*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*Cos[theta]*Cos[2*theta] - 
                  (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                    Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                 1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - 
                       (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3) + (-336/(E^(r^2/4)*r^4) + 
                       (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 - ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)/2)*Sin[theta]*
                    (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*
                    (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                     (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                        r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                    (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                     2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                          (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                      Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                         r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                       (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                          (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                        r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                      Sin[2*theta])))) - ((-336/(E^(r^2/4)*r^4) + 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r + 
                 r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                     (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                     (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                       (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                         (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                          2))/r)/2))*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (6.*^-6*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2))/(
                -1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                    (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                 (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                     (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                   16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                     (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
                2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                2*Sin[theta]^3 - 6.25*^-14*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]^2*
               Sin[2*theta]^2 - 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
               Sin[theta]^2*(-2 + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[2*theta]) + 
              9.*^-12*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                  Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-96/(E^(r^2/4)*
                   r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                   Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                 (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                   Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                    4*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*
             ((2.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 - 
                 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                 r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                   (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                (1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                  Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                   (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                     (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + ((96/(E^(r^2/4)*r^4) - 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2 + 3*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3) - r*(480/(E^(r^2/4)*r^5) - 
                   (30*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                   (15*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^4 - (5*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r^2))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                  Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(48/(E^(r^2/4)*
                       r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])*
                  (-1 + 2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                        (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                     (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                       32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                         (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                      r)*Cos[phi]*Sin[2*theta])))/(1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                    (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/r^3)*Cos[phi]*Cos[2*theta]*
                   Sin[theta] - 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^3) - 
                1.*^-12*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                  (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/2)*Sin[theta]*(1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - 
                      (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 
                    (-336/(E^(r^2/4)*r^4) + (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 - ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                       r)/4)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                   (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]^2*Cos[2*theta]^
                    2 + (1 + 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                         (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                     Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(336/(E^(r^2/4)*
                        r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                     Sin[2*theta]))) + (3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                 (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                 (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^3)*(-96/(E^(r^2/4)*r^4) + 
                 (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                 (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*
                (3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*Sin[theta]^2)*
                Sin[2*theta])/(-1 + 2.5*^-13*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                   (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                 Sin[theta]^3 + 1.875*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(8*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(-4*Cos[phi]*Cos[theta]^
                      3*Sin[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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]^
                2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 
              0.000036*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                    (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(
                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[phi]*
                 (4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                 Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                   Sin[4*theta])) + 3*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(-8*Cot[theta]*Sin[phi] - 
                1.*^-6*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(Cos[theta] + 
                  Cos[3*theta])*Csc[theta]*(Sin[phi] - Sin[3*phi]) + 
                2.5*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[phi]*(2*Sin[2*theta] + 
                  3*Sin[4*theta]) + 2.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(2*Cos[2*theta]*
                   Sin[2*phi] - 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                    (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                   Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]) + 5.*^-7*r*(-1680/(E^(r^2/4)*r^5) + 
                    (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                    (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^4 + (13*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^3 - (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2)))/r^2 + (8/E^(r^2/4) - 
                      (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*r/E^(r^2/4) + 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 + 
                        (3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                         2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(8.*^-6*Sin[phi]^3*
                      Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[
                       4*theta]))/4)) + 2*(1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*
                 (2*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2) + 
                  r*(3*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3) + (1680/(E^(r^2/4)*r^5) - 
                      (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 + 
                      (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 - (13*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^3 + (3*((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                         16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2)))/r^2 - (8/E^(r^2/4) - 
                        (4*r^2)/E^(r^2/4) - 32*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) - 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        48*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2) + 16*r*(-1/4*
                          r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/(4*
                          E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*((Cos[theta]^2 + 
                    Cos[2*theta])*Sin[2*phi] - 1.*^-6*(-96/(E^(r^2/4)*r^4) + 
                    (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                    (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
                   Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta])) + ((336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(4*Cot[theta]*Sin[phi] + 
                   5.*^-13*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                      (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                         (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*(-4*Cos[2*theta]*
                      Sin[2*phi] + 3.*^-6*r*(-240/(E^(r^2/4)*r^5) + 
                       (15*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^5 - 
                       (6*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^4 + (-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                      Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                       Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-1680/(E^(r^2/4)*
                         r^5) + (105*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                        r^5 - (48*((-16*r)/E^(r^2/4) + 16*r*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                       (13*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 - (3*((16*r)/E^(r^2/4) - 
                          16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                          32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
                        r^2 + (8/E^(r^2/4) - (4*r^2)/E^(r^2/4) - 
                         32*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 
                         16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 48*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) + 
                         16*r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) + 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 - 
                          (r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/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*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
              5.3999999999999996*^-17*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2 + 
              1.*^-12*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                     E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                 (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
               (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                    E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                   16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))))/2))/r^2)^2*(336/(E^(r^2/4)*r^4) - 
                (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                   (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                    (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                  16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                    (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
               (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*(Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
               (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                  r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                     r^2/(4*E^(r^2/4))))/r^3)^2*(4*Cos[phi]^2*Cos[theta]*
                 Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + 
                  Sin[phi]^2)) + 6.*^-12*(48/(E^(r^2/4)*r^4) - 
                (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                     (4*E^(r^2/4))))/r^3)*(2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)^2*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*Cos[phi]*Cos[2*theta]*
                 Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2) - ((336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                    Sin[phi]^2))/2))) + 
           (5.*^-7*(-1.*^-6*(18*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 
                3*r*(-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) - 
                6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                  (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2 + 
                  r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)))*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[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*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/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*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]^2*
                 Sin[2*theta]^2 - 2.*^-6*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]^2*Sin[2*theta]^
                  2)*(r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                  1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Sin[2*theta]))*(2 - 5.*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                  (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                     (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                  ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                    16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                      (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                     2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                   (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                    (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                 (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                   (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                        1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(-2*(Cos[phi]^2*
                     Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*(-4*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
              2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                     (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                  (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r^2) - 0.000018*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                      (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 Cos[phi]*Cos[theta]*Sin[theta] + (-96/(E^(r^2/4)*r^4) + 
                  (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                  (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)*(1 - 3.*^-6*r*
                   (-240/(E^(r^2/4)*r^5) + (15*(16/E^(r^2/4) - (8*r^2)/
                        E^(r^2/4)))/r^5 - (6*((-16*r)/E^(r^2/4) + 16*r*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^3)*Cos[phi]*Cos[theta]*
                   Sin[theta]) + 3*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
                 (-1 + 1.*^-6*(-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                    (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                         1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)*Cos[phi]*Sin[2*theta] + 
                  1.*^-6*r*(480/(E^(r^2/4)*r^5) - (30*(16/E^(r^2/4) - 
                       (8*r^2)/E^(r^2/4)))/r^5 + (15*((-16*r)/E^(r^2/4) + 
                       16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 - 
                    (5*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                        (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^3 + ((16*r)/E^(r^2/4) - 
                      16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                      32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                        (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                     r^2)*Cos[phi]*Sin[2*theta]))*(-0.000432*
                 (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                    r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*(1 + 
                  2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                72*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
                 (-(Sin[phi]^2*Sin[2*theta]) + 5.*^-7*(336/(E^(r^2/4)*r^4) - 
                    (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                    (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                     r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                      16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                        (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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) - 2*Cos[phi]^2*
                   Sin[4*theta]) - 4*(((336/(E^(r^2/4)*r^4) - 
                      (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                      (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                         (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                       r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                        16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                          (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2))/2))/r)^2*(4*Cos[theta]*
                      Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))/4 + 
                  (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/
                         E^(r^2/4)))/r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*
                         (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 + 
                     (-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*(-1/2*
                          1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                        (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/r^2)^2*(2.5*^-7*
                     (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                      (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                        16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                        32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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*(48/(E^(r^2/4)*r^4) - 
                  (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                  ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))))/r^3)*(4.*^-6*(-96/(E^(r^2/4)*r^4) + 
                     (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 - 
                     (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + 
                       (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
                    2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                    4*Cos[4*theta]*Sin[phi]^2) + ((336/(E^(r^2/4)*r^4) - 
                     (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                     (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                        (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
                      r^2 + ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                       16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                         (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/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*
                      (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                          E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                       (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                          (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                          (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                         16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                         32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                          r^2/(4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                          (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/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))))/
            (r^2*(2 - 5.*^-13*(336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - 
                     (8*r^2)/E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^3*Cos[phi]*Cos[theta]*
                Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(48/(E^(r^2/4)*r^4) - 
                 (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))))/r^3)*(336/(E^(r^2/4)*r^4) - 
                 (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                 (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                    (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                       (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                      (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                 ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                      (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                     (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                   16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                     (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*(6 - 2*Cos[2*phi] + 
                 Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*
                (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                      E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                  (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                      (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                    16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                      (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                         (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                   r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
                (48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 + ((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                      r^2/(4*E^(r^2/4))))/r^3)^2*(-(Sin[phi]^2*Sin[theta]^
                    2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                  (336/(E^(r^2/4)*r^4) - (21*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + (9*((-16*r)/E^(r^2/4) + 16*r*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 - 
                   (2*(-16/E^(r^2/4) + (8*r^2)/E^(r^2/4) + 16*
                       (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r*
                       (r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2)))/r^2 + ((16*r)/E^(r^2/4) - 
                     16*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                     32*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2) + 16*r*(3/(4*E^(r^2/4)) - 
                       (3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - 
                          (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
                    r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
                (-96/(E^(r^2/4)*r^4) + (6*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/
                   r^4 - (3*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                       r^2/(4*E^(r^2/4)))))/r^3 + (-16/E^(r^2/4) + (8*r^2)/
                     E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 
                    16*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + 
                         r^2/(4*E^(r^2/4))))/2))/r^2)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(48/(E^(r^2/4)*r^4) - (3*(16/E^(r^2/4) - (8*r^2)/
                       E^(r^2/4)))/r^4 + ((-16*r)/E^(r^2/4) + 16*r*
                      (-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(336/(E^(r^2/4)*r^4) - 
                   (21*(16/E^(r^2/4) - (8*r^2)/E^(r^2/4)))/r^4 + 
                   (9*((-16*r)/E^(r^2/4) + 16*r*(-1/2*1/E^(r^2/4) + 
                        r^2/(4*E^(r^2/4)))))/r^3 - (2*(-16/E^(r^2/4) + 
                      (8*r^2)/E^(r^2/4) + 16*(-1/2*1/E^(r^2/4) + r^2/
                         (4*E^(r^2/4))) + 16*r*(r/(2*E^(r^2/4)) - 
                        (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 + 
                   ((16*r)/E^(r^2/4) - 16*r*(-1/2*1/E^(r^2/4) + r^2/
                        (4*E^(r^2/4))) + 32*(r/(2*E^(r^2/4)) - 
                       (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 
                     16*r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) - 
                       (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
                          (4*E^(r^2/4))))/2))/2))/r)*Cos[phi]*
                  (-4*Cos[theta]*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
